Mission 3

home *** CD-ROM | disk | FTP | other *** search

/ Mission 3 / Mission 3.zip / Mission 3.iso / spiele / sac / source / sac.bas (.txt) < prev

Wrap

Atari STOS Basic | 1989-07-28 | 27KB | 472 lines

10 REM *** STOS ADVENTURE CREATOR *** 100 DIM 1000 LOCATE 1010 REPEAT 1020 VARNAME 1030 INC 1040 IF 1050 LOCATE 1060 IF 1070 IF 1080 IF 1090 IF 110 EXTENSION (Index #25) (Token 0x84) 1100 IF 1110 IF 1120 IF 1130 IF 1140 IF 115 ON ERROR 1150 IF 1160 UNTIL 1170 WAIT 1180 REM ****** PRINT ONE CONNECTION ****** 1190 LOCATE 120 LOCATE 1200 IF 1210 VARNAME 1220 CLS 1230 PRINT 1240 IF 1250 IF 1260 IF 1270 IF 1280 IF 1290 IF 130 LOCATE 1300 IF 1310 IF 1320 IF 1330 IF 1340 PRINT 1350 REM ****** PRINT ALL CONNECTIONS ****** 1360 VARNAME 1370 FOR 1380 CLS 1390 PRINT 140 REM ****** TITLE SCREEN ******* 1400 IF 1410 IF 1420 IF 1430 IF 1440 IF 1450 IF 1460 IF 1470 IF 1480 IF 1490 IF 15 BREAK 150 LOCATE 1500 IF 1510 PRINT 1520 NEXT 1530 GOTO 1540 REM ******* OBJECTS ******* 1550 HOME 1560 LOCATE 1570 LOCATE 1580 LOCATE 1590 LOCATE 160 LOCATE 1600 LOCATE 1610 LOCATE 1620 LOCATE 1630 LOCATE 1640 LOCATE 1650 FADE 1660 REM ****** CHOOSE OPTION ******* 1670 VARNAME 1680 IF 1690 IF 170 LOCATE 1700 IF 1710 IF 1720 IF 1730 IF 1740 GOTO 1750 REM ****** INSERT AN OBJECT ****** 1760 IF 1770 MODE 1780 INC 1790 LOCATE 180 LOCATE 1800 LOCATE 1810 PRINT 1820 REM ****** AMEND OBJECTS ****** 1830 LOCATE 1840 IF 1850 MODE 1860 LOCATE 1870 LOCATE 1880 LOCATE 1890 PRINT 190 LOCATE 1900 REM ****** OBJECT LOCATION ****** 1910 IF 1920 MODE 1930 LOCATE 1940 IF 1950 PRINT 1960 LOCATE 1970 VARNAME 1980 MODE 1990 REM ****** SPECIAL LOCATIONS ****** 20 CLICK 200 LOCATE 2000 IF 2010 CLS 2020 LOCATE 2030 IF 2040 PRINT 2050 LOCATE 2060 LOCATE 2070 IF 2080 IF 2090 IF 210 LOCATE 2100 IF 2110 IF 2120 CLS 2130 REM ****** PRINT OBJECTS ****** 2140 IF 2150 MODE 2160 FOR 2170 PRINT 2180 IF 2190 IF 220 LOCATE 2200 IF 2210 IF 2220 PRINT 2230 IF 2240 IF 2250 NEXT 2260 REM **** EXAMINE ******* 2270 LOCATE 2280 LOCATE 2290 REM ****** TITLE SCREEN ******* 230 LOCATE 2300 LOCATE 2310 LOCATE 2320 LOCATE 2330 LOCATE 2340 LOCATE 2350 LOCATE 2360 LOCATE 2370 LOCATE 2380 FADE 2390 REM ****** CHOOSE OPTION ******* 240 LOCATE 2400 VARNAME 2410 IF 2420 IF 2430 IF 2440 IF 245 LOCATE 2450 IF 2460 IF 2470 GOTO 2480 REM ****** INSERT MESSAGE ****** 2490 IF 250 FADE 2500 MODE 2510 INC 2520 LOCATE 2530 LOCATE 2540 PRINT 2550 REM ****** AMEND MESSAGE ****** 2560 IF 2570 LOCATE 2580 IF 2590 MODE 260 REM ****** CHOOSE OPTION ******* 2600 PEN 2610 LOCATE 2620 LOCATE 2630 PRINT 2640 REM **** INSERT LOCATION MESSAGE **** 2650 IF 2660 LOCATE 2670 MODE 2680 PEN 2690 INC 270 VARNAME 2700 LOCATE 2710 IF 2720 PRINT 2730 PRINT 2740 REM ***** LIST EXAMINE MESSAGES ***** 2750 IF 2760 MODE 2770 PEN 2780 FOR 2790 PRINT 280 IF 2800 PRINT 2810 IF 2820 IF 2830 NEXT 2840 REM ***** LIST EXAMINE LOCATION MESSAGES ***** 2850 IF 2860 MODE 2870 PEN 2880 FOR 2890 PRINT 290 IF 2900 PRINT 2910 PRINT 2920 PRINT 2930 IF 2940 IF 2950 NEXT 2960 PRINT 2970 REM *** MESSAGES *** 2975 CLS 2980 LOCATE 2985 VARNAME 2990 LOCATE 30 LOAD 300 IF 3000 LOCATE 3010 LOCATE 3020 LOCATE 3025 LOCATE 3030 LOCATE 3040 LOCATE 3050 FADE 3060 VARNAME 3070 IF 3080 IF 3090 IF 3095 IF 310 IF 3100 IF 3110 VARNAME 3120 CLEAR KEY 3121 MODE 3122 IF 3123 IF 3124 IF 3125 IF 3126 VARNAME 3127 LOCATE 3128 WHILE 3129 VARNAME 3130 WEND 3131 REM ~~~ CHECK CURSOR UP KEY 3132 IF 3133 REM ~~~ CHECK CURSOR DOWN KEY 3134 IF 3135 REM ~~~ CHECK CURSOR LEFT KEY 3136 IF 3137 REM ~~~ CHECK CURSOR RIGHT KEY 3138 IF 3139 REM ~~~ CHECK RETURN KEY 3140 IF 3141 REM ~~~ CHECK BACKSPACE KEY 3142 IF 3143 IF 3144 REM ~~~ CHECK DELETE KEY 3145 IF 3146 REM ~~~ CHECK FOR KEYBOARD INPUT 3147 IF 3148 IF 3149 VARNAME 3150 FOR 3151 FOR 3152 VARNAME 3153 VARNAME 3154 NEXT 3155 IF 3156 IF 3157 VARNAME 3160 REM 320 IF 3260 REM ***** LIST MESSAGES ***** 3270 IF 3280 MODE 3290 PEN 330 IF 3300 FOR 3310 PRINT 3320 PRINT 3330 IF 3340 IF 335 IF 3350 NEXT 3360 REM **** Delete Message **** 3370 PRINT 3380 IF 3390 VARNAME 340 IF 3400 VARNAME 3410 DEC 350 IF 3500 IF 3510 IF 3520 RESUME 3530 OPEN OUT 3540 PRINT 3550 FOR 3555 PRINT 3560 FOR 3570 PRINT 3580 PRINT 3585 FOR 3590 FOR 360 IF 3600 FOR 3610 FOR 3630 FOR 365 VARNAME 3650 FOR 3660 FOR 3670 FOR 3690 CLOSE 370 IF 3740 REM ~~~ LOAD SAC DATA ~~~ 3745 VARNAME 3750 OPEN IN 3760 LINE INPUT 3770 FOR 3780 LINE INPUT 3790 FOR 380 IF 3800 LINE INPUT 3810 LINE INPUT 3820 FOR 3830 FOR 3840 FOR 3850 FOR 3860 FOR 3870 FOR 3880 FOR 3890 FOR 390 IF 3910 CLOSE 400 IF 4000 REM ~~~ CLEAR DATA ~~~ 4010 VARNAME 4020 FOR 4030 FOR 4040 FOR 405 VARNAME 4050 FOR 4060 FOR 4070 FOR 4080 FOR 4090 FOR 410 IF 4100 FOR 4110 FOR 4140 IF 420 BELL 430 REM ******* SAVE RUNABLE ADVENTURE DATA ****** 431 VARNAME 440 IF 450 IF 460 IF 470 REM 480 REM *** DEFINE LOCATIONS *** 490 CLS 500 LOCATE 510 LOCATE 520 LOCATE 530 LOCATE 540 LOCATE 545 LOCATE 550 LOCATE 560 LOCATE 570 FADE 580 VARNAME 581 IF 582 IF 583 IF 584 IF 585 IF 586 IF 589 VARNAME 590 REM ****** CREATE LOCATION ****** 595 IF 600 CLEAR KEY 605 MODE 608 IF 609 IF 610 IF 611 IF 612 VARNAME 613 LOCATE 614 WHILE 615 VARNAME 616 WEND 617 REM ~~~ CHECK CURSOR UP KEY 618 IF 619 REM ~~~ CHECK CURSOR DOWN KEY 620 IF 621 REM ~~~ CHECK CURSOR LEFT KEY 622 IF 623 REM ~~~ CHECK CURSOR RIGHT KEY 624 IF 625 REM ~~~ CHECK RETURN KEY 626 IF 627 REM ~~~ CHECK BACKSPACE KEY 628 IF 629 IF 630 REM ~~~ CHECK DELETE KEY 631 IF 632 REM ~~~ CHECK FOR KEYBOARD INPUT 633 IF 634 IF 635 VARNAME 636 FOR 637 FOR 638 VARNAME 639 VARNAME 640 NEXT 645 IF 646 IF 648 VARNAME 650 REM ****** SHOW ONE LOCATION ****** 660 LOCATE 670 MODE 680 REM ****** SHOW ALL LOCATIONS ****** 690 IF 700 MODE 705 FOR 706 PRINT 710 IF 720 IF 730 IF 740 NEXT 750 PRINT 751 REM ***** DELETE LOCATION ***** 752 PRINT 753 IF 754 VARNAME 755 VARNAME 756 DEC 760 REM ****** GOTO MAIN MENU ****** 770 IF 780 GOTO 790 REM ****** CONNECTIONS ******* 800 LOCATE 810 LOCATE 820 LOCATE 830 LOCATE 840 LOCATE 850 LOCATE 860 FADE 870 VARNAME 880 IF 890 IF 900 IF 910 IF 920 GOTO 930 REM ****** AMEND CONNECTION ****** 940 IF 950 LOCATE 960 FOR 970 CLS 980 LOCATE 990 LOCATE